Using a function in .names argument of across function